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SEQ OCOl 



IDENTIFICATION 
PRODUCT CODEI AC-E685G-MC 

PRODUCT hAPEl CXTCAGO DEC/Xll TCll MODULE 

DATES SEPTEMBER 1978 

I^AIHTAINER: DEC/XII support GROUP 

THE INFORMATION 11^ THIS DOCUMENT IS SUBJECT TO CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE CCNSTPUED AS A CON^ITHEI^T 
BY DIGITAL EQUIPI^ENT CORPORATION* DIGITAL EQUIPMENT 
CORPORATION ASSUMES NO RESPONSIBILITY FCR ANY ERRORS THAT 
MAY APPEAR IN THIS MANUAL* 

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE 
PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COI'PUTER 
SYSTEM AND CAN BE COPIED (WITH INCLUSION CF DIGITALS 
COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYStEP ^ EXCEPT AS MAY 
OTHERWISE BE PROVIDED IN WRITING BY DIGITAL^ 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FCR 
THE USE OR RELIABILITY OF ITS SOFTlfiARE CM EGUIPI^ENT THAT IS 
NOT SUPPLIED BY DIGITAL. 

COPYRIGHT (C) 1973,1978 DIGITAL EQUIPMENT CCRPORITICN 
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XTCAGO.Pll 12-0CT-78 12l21 SEQ 0C02 

1« ABSTRACT 



fCI EXERCISES k TCll DECTIPE COMTROL MD OP TO EIGHT C8) DECfJIPE 

DRIVES^ BISIC TEST SEQUENCE COHSISfS OF liRITING 1024 iCRCS (4 BLCCKS) 

IM FORWIRD DIRECTIQi£ REIDIMG 1ST 256 iORDS CI BLOCK) li FCRIiJIgD DIEECTIOij. 



I DIFFERENT DRIVE EICH TIME^ UHTIL I PISS IS CCHPIETED. felTH EICK feSITE 
CR REID BEING PRECEEDED BY I SEARCH SEQUESCE<. EICH SEIRCH AWC DITI fRAKSFER CR EITI 
CHECK IS RETRYED OP TO A LIMIT kUd THEK THE DRIVE IS EITHER£CEPEIiDIIjG ON SRl^ 
DROPPED OR THAT BLOCK IS SKIPPED^ MHEi THE EiD OF fIPE IS REICHED^ IBEU THE REIDS 
IND yRITES GO IM REVERSE UMTIL THE BEGIMIIG CF THE TAPE IS REICHED^ ETC« 

REQUIREMENTS 

HARDWARES TCll DECTAPE COSTOL^ kUB QUE TtJ5€ DUAL DECTAPE TRAiSPORT. 
STCRAGEIS TCI REQUIRES! 

1. DECIMAL WORDSS 895 

2. OCTAL WORDSI 1577 
3« OCTAL BYTES: 3376 

PASS DEFIHITION 



OME PASS OF TCA I^ODULE CONSISTS CF 40 ITERATIONS CF BASIC TEST 
SEQUEMCEj. MHICH RESULTS INI 

160 BLOCKS WRITTEN,. 40 BLOCKS READ« 

EXECUTION TIME 

TCA RUNNING ALCNE£ WITH ONE DECTAPE DRIVE^ OK PDP-li/05 TAKES 
APPROXIMATELY 1 MINUTE. 

CONFIGURATION REQUIREMENTS 



DEFAULT PARAMETERS! 

DEVADRS 177340, VECTORS 214,. BRlS 6^ DEVCNTS 1, SRlS 

REQUIRED PARAMETERS! 

NONE 
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6» CEVICE/OPTIOW SETUP 

EACH DECTAPE DRIVE MUST BES 

^» LOADED WITH A FORMATTED DECTAPE. 

B» SET TO REMOTE. 

C. WRITE ENABLED* 

7» I^ODULE OPERATION 

TEST SEQUENCES 

A« SELECT A DRIVE (ERROR AND I^ODULE DROPPED IF KCliE AVAILABLE). 
E« SRITE 4 BLOCKS FKO (1024 NORDS). 
C« READ THE FIRST BLOCK WRITTEN (256 feORDS)» 
CHECK DATA (256 WORDS)» 

REPEAT A THROUGH D 40 Tlf^ES FOR DUE PASS* 
^OTESS TCA DOES NOT USE DRIVE IF LOAD NEDIUH IS CECTAPE. 

8. OPERATION OPTIOMS 

FODULE LOCATION! "DVIDI«« MkY BE CHANGED TO TEST OTHER TBIK I FULL 
CQI^PLEHEKT OF DRIVES* "DVIDl" BITS THROUGH 7 ONLY APPLY. OSE BIT 
INDICATES A DRIVE. BITO= DRIVE 0^ ETC* 

LOCATIOH "^RTLMT" CONTAINS A 2 TO INDICATE 3 RETRYS« THIS f^AY BE CHANGED FROH 
0=NO RETRYS UP TO 377=256 RETRYS« 

SRI IS A CAUSING THE MODULE TO SKIP AN OFFENDIf^G BLOCK AFTER THE RETRY Lli^IT 
IS EXCEEDED. IF A 1 IS PUT IN BIT THE DRIVE liILL BE DRCPPEC liHEN 
THE LIMIT IS EXCEEDED^ 

9. I^ON STANDARD PRINTOUTS 

NONE* ALL PRINTOUTS HAVE STANDARD MEANINGS AS REPRESENTED IN 
DEC/Xll DOCUI^ENTATION. 

THERE IS AN ERROR MSG FOR EVERY ERROR AND THERE ARE EXPLAINAIORY NESSAGES THAT CGHE 
IfilTH SOME BUT NOT ALL. THESE EXTRA NFSSAGES ALSO INCLUDE THE FOLLCIiING ENDING 
D<X>B<YYY> 

^HERE X IS THE DRIVE NUMBER AND YYY IS THE FAILING BLOCK NUMBER* 
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SEQ 0C04 



000000" 
000000' 



OOQOOO" 
000000' 
000005' 
000006- 
000010' 
000012' 
000013- 
000014' 
000016- 
000020- 

00802^; 



iTCll DEC/Xll EXERCISER MODULE 



iJofiS 



0024 

000026- 
Q0QQ30- 
000032- 
000034- 
000036' 
000040' 
000042- 
000044- 
000046- 
000050- 
000052- 
000054- 
000056- 
000056- 
000060- 
000062- 
000064- 
000066- 
000070- 
000072- 
000074- 
OQ0076- 
000100' 

888181- 

000104- 
000104- 
000106- 
000106- 

oooiio; 

008114' 
000116- 
000120- 
000122* 



COOOOO 

000000 

COOOOO 

C00504- 

000000 

COOOOO 

COOOOO 

COOOlO 



bf^ODX <TCAG >, 177340,21446, 0^0«40., 10, RBUF, 256. ,1024. 

fODULE 150000£t£ag , 177346,214,6,0, 0,46. ,10, KBUF, 256. ,1024. 

.TITLE TCAG DEC/Xll SYSTEH |XERCISER PoDULE 

DDXCOM VERSION 6 23-MSY-78 



.LIST BIN 

begin: 

■ .ASCII /TCAG / 

.BYTE OPEN 



a * H * -A H itit » ■» 



177340*0 

21" - 



;module NIfE. 

;DSED TO KEEP TRACK CF HBUFF U 
;1ST DEVICE ADDR. 
;1ST DEVICE VECTOR. 
PRTY6*C ;1£T BR LEVEL. 

PRTYC + ;2liD BR LEVEL. 

;device indicatof i. 

;SfeITCH REGISTER 1 
?SiilTCH REGISTER 2 
;ShITCH REGISTER 3 
jSiilTCH REGISTER 4 

§tat: 





;STATUS teOPD. 
;l'CDULE START ADCR. 
;l'CDULE STACK POINTER. 
;PISS COUNTER. 

}U OF ITERATIONS PER PASS=40. 

?LCC TO COUNT ITERATIONS 

;LCC TO SAVE TOTAL SOFT ERRORS 

;ICC TO SAVE TOTAL HARD ERRORS 

;LCC TO SAVE SOFT ERRORS PER PISS 

;ICC TO SAVE HARD ERRORS PER PASS 

;« OF SYS ERRORS ACCUMULATED 

;fiCLDS RINDOI* ^ bHEN RAND HICRC IS CALLED 

^RESERVED FOR fiOKITCR USE 

;FiSERVED FOR MONITOR USE 

;RESERVED FOR WONITCR USE 

;ICC TO SAVE RO. 

;LCC TO SAVE Rl. 

;LCC TO SAVE R2. 

;LCC TO SAVE R3. 

;LCC TO SAVE R4. 

;LGC TO SAVE R5. 

;L0C to SAVE RC. 

;ACDR OF CURRENT CSR. 

;ICDR GF GOOD DATA, OR 

;CCNTENTS OF CSR. 

;AI:DR OF BAD DATA, CR 

;S1ATUS REG CONTENTS. 

h'iPE CF EFRCR 

JEXPECTED DATA. 

FACTUAL DATA. 

;RESTART ADDRESS AFTER END OF FASS 
;feCRDS TC HEfCFY PEF ITERATION 
;WCRDS FROf KEFORY PER ITEHATICK 
;« OF INTEFRUPTS PEF ITERATION 
;PCDULE IDENTIFICATION NDMBER=1C 
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XTCAGO.Pll 

000: 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
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rbufva: rbuf 

RBUFPA: OPEN 
RBUFEA: OPEN 

rbufsz: 256. 
RBUFPA: OPEN 
NBUFEA: OPEN 
MBUFRQ 
MBUFSZ 
CDERCT 
CDkDCT 
free: 



1024, 
OPEN 
OPEN 
OPEN 
OPEN 
,REPT 
.NLIST 
.yORD 
.LIST 

.endr 



JREAD BUFFER VIRTUAL ADDRESS 
JFEAD BUFFER PHYSICIL ADDRESS 
;READ BUFFER EA BITS 
;SIZE CF THE READ BUFFER 
hfilTE BUFFER PHYSICAL ADDRESS 
yiiFITE BUFFER FA BITS 
;KRITE buffer size REQUESTED 
UfITE buffer SIZE AVAILABLE 
?CDATA/DATCK ERROR COUNT 
JCCSTA/DITCK i«CRD COUNT 
JRESERVEC FOR FUTURE USE 
;KCCULE STACK STARTS HERE. 
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S128SS iliPS^ili?. ?IllEGAL OPEFAIION 

m nnninn fFlTlF^^ JSELECTION ERROR 

?il nn§JS8 nNfERRUPT ISABLE 

m ?R?S§n S^;PII2« >BLOCK MISSED 

1^ c8IS8S gil^ifli! IcS'WiiSifiSE direction 

111 I iiii ^umi^-" 

OOOfS?' 000 SRtRYC: .BYTE OPEN I-^EaScH BeIrY CfiUNTER 



EVEN 



ill 000260' 000002 RTLMT: 5"'"" t«<KPTBV r xuit 

236 000265: 000000 UHifT: OPEN ^ ^^^^^ 



, M- mill ^"cl\ SglK id^"" E' ^ggjjgfe 

mp: 888888 8?i!l : " i I 

mm: mm icws-. open iicr m sSv? rr«5fSII''r„ 



III pp: psE •• inilVAF" " 

^ii ra'i88888 li?5 



OPEN 

RISV; OPEN ;RJ SAVE LOC. 
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000604 
000606 



000021 177550 



;M0DULE code STARTS HERE. 



START: 



I77366 177652 

mi 

OCOOl 000041 



1$! 



2$: 



wov 

HOV 

MOV 

NOV 

MOV 

TST 

MOV 

MOV 

TST 

MOV 

TST 

MOV 

TST 

MOV 

MOV 

MOV 

MOV 

MOV 

CLRB 

CLR 

CMPB 

BNE 

MOVB 

MOV 

TSTB 

REQ 

ASL 

DECB 

BR 

BIC 



TCkC 



«256.,kDT0 

|l024;,WDFF 

il7.,lRTR 

ADDR,B5 

R5,TCST 

(RS)* 

RS^CSRA 

R5,TCCf 

R5,TC0T 

VECTOR/RO 

|DTINT,(0)* 

DVIDI/USELCT 

FLAG 

BLOCK 

IeStrt 

n 

RO 
IS 

Rl,USELCT 



COCOOO' 000124' 
177414 177576 
177572 
177540 

000010 177514 



GETPA$, BEGIN, RBUFVS 
MOV RBUFSZ,yCNT2 



NEG 
TST 
BNE 
MOVB 
BR 



WCNT2 
BLOCK 
SEGB 

piT3,DIfiir.D 
GOBK 



mm 

000004 
001101 



177502 
177474 



177466 000000 



segb: 

STEP: 



;LOHER 
?BLOCK 



GWBUFS^ BEGIN 

MOV IsiBUFSZ^WCNTl 

NEG aCNTl 

ADD 14, BLOCK 

CMP |577-yPLCCK 

BMI GOBK 

CMP BLOCK, «0 

- - T.fii_fi 



256 aORDS TC MEM PER ITERATIOK 
1C24 ifOFDS TFBOM MEM PER ITERITIDN 
11 INTERRUPTS PER ITERATION 
GET DEVICE AOCR. 
SAVE IT 

GET COMMANC REGISTER ADDRESS 

LOAD ADDRESS OF COMMAND REG. 
PUT THIS ADCPESS IS MY POINTEF FOR TC COMMANDS 
MAKE ADDRESS CF liORD COUNT REC 
PUT IT THERE 

MAKE ADDRESS CF BUS ADDRESS REG 
PUT IT THERE 

MAKE ADDRESS CF DATA REG 
PUT IT THERE 
LEAD TCll VECTOR. 

;GET AVAILABLE UMTS. 

; ZERO FLAGS 

;StART AT BLCCK ARD INDICATE THAT THIS IS A REfe START 

;LCAD MEDIUM DECTAPE? 

;ER IF NCT. 

JGET DRIVE NUMBER 

;CFIVE MASK: INITIALIZE TO DRIVE 
;IF DRIVE FOUND THEN 
;GC TO 2| 

;ELSE SHiFT MASK TO NEXT DRIVE 
JCCSNCOONT DRIVE « 
JCHECK AGAIN 
^DISABLE DPIVF . 

IGET PHYSICAL ADDRESS FRCM 16-BIT RBUFVA 
; SAVE READ BUFFER SIZE 
; GET THE 2'S COMPLEMENT 
;IS THIS A RESTART CR START? 
JERINCH IF RESTART 
;START IK REVERSE BUT 

;1HIS JMP PUTS IT IRTO FORSARC AND INSURES ALL CCDE IS 
JRIGHT FCR THIS DIRECTION 

;GET WRITE BUFFER INFORMATION 
; SAVE WRITE BUFFER SIZE 
; GET THE 2'S COMPLEMENT 
; STEP 4 BLOCKS (1024 HORDS) 
? LEGAL BLCCK KUMBER ? 
;EFANCH if BLOCK fl IS TOO BIG 
;BY CHANGING THIS fiC, liHICH IS THE DEFAULT 

" ' "P, Shich 



BLOCK #, AND THE |577 T!j0 IHSTRUCTICNS UP, &HICH IS THF CFPAULT UPPER 
LIMIT, YOU CAN FORCE THF DECTAPES TC STAY BEISEEN ANY TisC BLOCK NUMBERS YCU DESIR 
BMI GOBK ;EFANCH IF BLOCK fl IS TOO SMALl 



004767 C01302 



PCSEQDRV 



;SELECT SEQUENTIAL DRIVE. 



I 
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000612' 
000616* 
000622' 
000626' 



105067 

105067 

8o040? 



177441 
177434 
C0C130 



CLRB 
CLRB 
JSP 
BR 



SRTRVC 
DRTRVC 
PC,WDATftF 

SEGC 



;**CLEAB SEAFCH FETFV COUNT 
;**CLEAR DATA RETRY COUNT 

?SFITE BLOCK FCRIiAFC. 
;EBROR RETURN. 
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318 
319 
320 
321 

1 

m 

Ml 

329 
330 



334 

m 

337 
338 

m 
m 
m 

345 

348 
3 49 
350 
351 
352 
353 
354 
355 
356 
357 
358 



000630- 004767 C00154 

000634' 000404 

000636' 104412 COOOOO' 000126' 

000644' C00646' 

000646' 

000646' 104413 000000' 

000652' 132767 COCOOl 177375 

000660' C01730 

000662' 142767 COCOOl 177365 



PC,RDATAE 
SEGC 



JSR 
BR 

CDATfiS, BEGIN, RfiUFPA 
.*2 

ENDITS/BEGIN 



BITB 

BEQ 
BICB 



PITCFLAG 
SEGB 

«BITO/FLIG 



; YES, READ ELCCK FCR^ARD 
;Ef!PCR RETURh. 

; REQUEST FOR fOMTCR TO CHECK CATA 
; IF ERRCR/ CONTINUE 

;S1GNAL END CF ITERATICN. 
yf'CKITOR SHALL TEST END CF PASS 
; hC, END OF TAPE ? 
; NCy CONTINUE 

; MS, CLEAR FLAG INC DRCP INTC GGBK 



;SUB TO REVERSE DIRECTION CF TAPE MOTION. THIS IS DONE BY CHANCING THE VALUE OF 
;MANY COUNTING AND LIVIT CONSTANTS AND 1 INSTRUCTICK WHICH IS EITHER A NOP 
;0R A NEGATE. 



000670' 
000674' 


105767 


177360 




gobk: 


TSTB 


001014 








BNE 


000676' 


112767 


COCOlO 


177350 




MOVB 


QQQ704' 


012767 


177774 


177650 




HOV 


000712' 


C05067 


C01034 






CLR 


000716' 


012767 


C00240 


001022 




MOV 


QQ0724' 


000706 








BR 


000726' 
000732' 


105067 
C12767 


mm 


177622 


BACK: 


CLRB 
MOV 


000740' 


012767 


COllOl 


001004 




MOV 


000746' 
000754' 


012767 
000672 


C05400 


000772 




MOV 








BR 



000756' 
000764' 
000772' 
001000' 
001006' 



QOlOlO' 
001016' 
001024' 
001032' 



112767 

C16767 
016777 
016767 
000414 



016767 
016777 
016767 



000115 177300 



177144 

177316 
177132 



C00105 
177104 

Vim 



177276 
177304 



177246 
177242 



DIRIND 
BACK 

#BIT3,DIRIKD 

«-4,STEP*2 

R00M48. 

#240/MAYBE 

SEGB 

DIBIKD 

#4,STEF+2 

i577,/R0CM48. 

85400, t'AYBE 

SEGB 



jHRITE DATA SUB ENTRY. 

WDATAFS MOVB «115£C^ND 

MOV Sbufpa^batkp 

MOV hCNTl.eTCHC 

MOV l»BUFEli,EAPITS 

BR COMMON 



IREAD DATA SUB ENTRY. 

RDATAF: MOVB «105,CMND 

MOV RBUFPA,BATMP 

MOV WCNT2,iTCWC 

MOV RBUFEA/EAPITS 



;SHICH SAY WE GOING NOb? 
;EP IF BSCKbARE 
;MUST GO INTC REVERSE 
;CEC 3Y 4 CUFPENT BICCK M 
?CHANGE MAX ELCCKg TO 
KFANGE SENSE CF SUETRJCTION 

;MIJST go FQRIiftED 

;INC BLOCK S BY 4 

;CFANGE fAX ELCCK * TO 577 

;FUTS A NEGATE IhSt. IN PLACE 



PRESET COMMAND. 
ICAD TEfPORY STCRAGE. 
LCAD kORD CCUNT. 
SAVE EXTENCED MEMCFY PITS 



PRESET COMMAND. 
ICAC TEMPORARY STCFAGE 
LCAD SORD CCUNT. 
SAVE EXTENCEC MFMCRY BITS 
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361 0Q1040' 016777 



nmr- mm 

001062' 112767 
1070- I ~ 

1116' 1 



00. 
001 




177146 
COOOOO' 



0011 
0011 



imn- . 

01232' C01361 

001234' 062767 
001242' 042767 

001250' 

001254' 
001256' 



001262' 
001270' 

mur- 

001310' 

001316" 
001324' 



105367 

mm 



€00004 
C04767 

104406 

126767 
C01023 



C04000 

cicooo 

176777 

C00420 

COCOOO' 

C00546 

COCOOO' 

C0C004 

COCOOO' 

176736 



177232 COMMCN: 



177156 



177124 
177104 




MOV 
BIC 
BIS 

wove 

CLRB 
MOVB 
BISB 

MOV 

EXITS^BECIN 



BATMP^gTCBA 

#60,CpfiD 
EABITS,CMND 
|i5,REVCNT 
INTSk 
|103/Uhn 
D1RIND,UKIH-1 
UNIT,pTCCM 



;TC11 INTERRUPTS HERE 
DTINT: TSTB INTSh 
XFRINT 



BNE 

TST 
BMI 
CMP 
BEQ 
BGT 

ADD 
CMP 
BGT 
BIT 
BNE 



LARGER: SOB 
CMP 
BGT 
BIT 
BNE 



DTREV! 



000000 
176733 



ADD 

BIC 

DECB 

BNE 

JSR 



flTCCM 
DTER 

BTCDT^BLCCK 

SAME 

LARGER 

p,gTCDT 
ItCDT, BLOCK 
CONT 

JRBVjelCCM,VES. 

UNIT^eTCCM 



iLfiSK^gTCDT 
CONT 

pEV/gTCCM 
CONT 

PEV,UNIT 

1bIT12#UKII 

REVCNT 

CONT 

PC, STOP 



SLOAC TCBA 
;StT UP EXT. MEM. BITS 

JSET MAX REVERSE CCDNT. 
;SET INT SWITCH TO SEARCH. 
;SET UP SEARCH CCMKAKD. 
;START SEARCH SAME DIR AS XFR. 
;ISSUE IT. 

;exn to mckitcr. module wait for interrupt. 
;diti xff interrupt? 

;EB IF YES. 

;NC. IN SEARCH MODE. ERROR? 
;EF IF YES. 



;BLCCK FOUND? 

;BF IF 



YES. 



;BB IF BLOCK FOUND IS LARGER. 



3 OR MORE? 



?LCaER. BY 
;FIND OUT. 

SER IF NOT. 
REV BIT SET? 

;BR IF YES TC TORN AROUND. 

;ISSOE COMMAND. 
IeXIT INTERRUPT. 

;l|RGER. BY 2 OR MORE? 
;FIND OUT. 
?EF IF NOT. 
;GCING FWD? 

;bf if not. 

;CCMPLIMENT CIFECTICK. 

KLEAR POSSIBLE CARRY INTO BIT IS 

;EXHAUSTED rev ALLCIiANCE? 

?Bfl IF NOT. 

hES. STOP DECTAPE. 



^IRQS, BEGIN, 1$ 



CUEUE up TC CONTIKOE AT 1$ ASC RTI 



JSK PC#NC*i 
MSGNS, BEGIN, MPl ; 
MOV «4#ERRTYP 



CMPB 
BNE 



RTLMT,SRTRYC 
Al 



/GC INSERT CRIVE AKD BLOCK « 
ASCII MESSAGE CALL fcllH CCI-MON HEADER 
JBLOCK NOT FOUND 

JBLOCK NOT FCUKD 

JEXCEEDED RETRY LIMIT ? 
JEFINCH IF NC 
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MSGNS, BEGIN, MP2 JASCII 
TST SRI 
BNE AO 
RTS PC 
MOVB UNIT+1,R1 
BIC «177770,R1 
MOVB OnTAB(1),R1 
BIC Rl,DSELCf 
MSGNS, BEGIN, MP3 ;ASCII 



MESSAGE CALL hITH CCfMON HEADER 
;TC DROP OR FCT TC CROP? 
;BFiANCH IF YES 
?HC 
;YES 



;LEAyE ONLY CEVICB 
;GET PROPER BIT 



BITS 



RTS 
IHCB 
BR 



PC 
SRTRYC 
COMMON 



__ IN RC 

iclear bit in uselct to drop drive 
message call kith ccmmon header 
;can keep going 
;bump retry count dp 
;gc back and try again 



001402* 
001416' 



032777 
001011 
105767 
C01267 



001420' 116767 

001434' 
001440' 
001442- 



mm 

105767 
C01367 
C00655 



C04000 176664 
176636 



176640 176634 
176620 



xfr: 

SRCHG! 



BIT flREV,gT 

BNE SRCHG 

TSTB DIRIND 

BNE CONT 



MOVB 
COMB 
BR 

TSTB 
BNE 

BR 



CHND/UKIT 

INTSfc 

CONT 

DIRIND 

XFR 

CONT 



;SIME« CHECK DIRECTION. 
;BB IF IN REV. 
;F{iD. HANT FSiD XFR? 
;Bfi IF NOT. 

;FRESET COMMAND. 

;SET INT SWITCH TO DATA XFR. 

;GC ISSUE XFR COMMAND. 

;1K REV. REV XFR liAWTED? 

;BR IF YES. 

;KC. CONTINUE SAME DIR. 
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001444' 
001450' 
001452- 



005777 
100410 
C04767 



;DATA XFR INTERRUPT SERVICED HERE. 
XFRINT: TST gTCCI' ;ERRCR? 

BMI DTER J8F IF YES. 

JSR PC/STOPl JSTOP DECTAPE. 



001456" 000004 COCOOO' 001464' 



flRQSl 



BEGIN, XFRA 



QUEUE UP IC CONTINUE AT XFRA AND Rll 



001464' 
001470' 


O0S2J7 


C0C002 


xfra: 


RTS 




;SET UP CK EXIT. 
;EXIT. 


001472' 
001476' 
001500' 
001504' 
001506' 


C05777 
100003 
105767 
C01653 
C04767 


176574 
176546 
C00170 


dter: 
1$: 


TST 

BPL 

TSTB 

BEQ 

JSR 


|TCST 

DTREV 
PC/STOP 


;EKD ZONE? 

?ER IF NCT. TRCUBLE! 
;IK SEARCH MCDE? 
;BF if yes TC REVERSE. 
;NC!« STOP DECTAPE. 



001512' 000004 COOOOO' 001520' 



Qi5|6: 



oofi46' 

0Q1542! 



m 

Q12767 
104403 
C00412 
032767 
001404 



061550 
001556 
001560 
00156' 

"Ith 

1600 
001604 



001612' 1044C5 



Mw- mm 

001600' 005067 



001620' 
0Q1626' 
001630' 
001636' 



mill 

1044C3 
012767 



000005 
COOOOO' 

001000 

C0C002 

r.tm 

COOOOO' 

004000 

COOOOO' 
C00007 



176344 

Jo22C6' 

176316 

176310 

000546 

000000 

000532 

002214' 
176242 



001644' 1044C5 COOOOO' 000000 



001652' 
001656' 
001664' 
001666' 
001672' 
001676- 



000167 
126767 
C01002 
000167 

mm 

017767 
C17767 
017767 
017767 
042777 
000207 



177466 
176376 



mil 



176366 
176356 
176354 
176350 

C00116 



76172 
76166 
76360 
76354 
76334 



3$S 



5$: 

6$l 



7 QUEUE UP TC CONTIKUE AT 2S AKC RTI 



|lHQ$/BEGIN/2$ 

5sr" ' R5/R0CM 
RTS PC 
JSR PC,N0y 
BIT «BM,ASTAT 
BEQ 3| 

MOV p^ERRTYF JBLOCK MISSED CODE 

MSGNS/BEGIN/1'P4 ;ASCII MESSAGE CALL klTH CC>'>'ON HEADER 
BR 4§ 

;DjTJ LATE? 



; ilS THERE RCCM ON TAPE FOR TFINSFEB ? 
; K0# THEREFCR NET REALLY AN ERBCR 
;1YPE DRIVE ANC BLCCK H 
JBLOCK MISSED? 



g]5ATN,ASTAT 

iLerrtyf 



;dita late ccde 
;gg report 

?UNKNOIiiN ERRCR 
;SAVE ASTAT 

JDECTAPE ERRCR 



BIT 

BEQ 
MOV 
BR 

CLR ERRTYP 
MOV ASTAT, CNUM 

• «**********«*«**-^ 

HRDERS,BEGIN,NULL 

BIT «SELE,DNUM jSELECTICN ERRCR? 

BEQ 5S ;BF if ND 

MSGN$, BEGIN, MP7 JASCII MESSAGE CILL hITH CC^MON HEADER 

MOV «7,ERRTYP JSELECTICN CCDE 

HRDERS, BEGIN, NULL ;FATAL ERROR 

JMP AO ;GIVE UP AND DROP THAT DRIVE 

RTLMT,DRTRYC ?EXCEEDEC retry LIJ'IT? 

6$ ;PFANCH IF NC 

"ROP ;YES 

}2\1¥P RETRY COUNT 



«««««««««««««« 



CMPB 
BNE 
JMP 
IHCB 
JMP 



DROP 
DRTRYC 
COMMON 



STOP: HOV 0TCCM,ACSR ;TCCM CONTENTS TO ACSR. 

MOV gTCST, ASTAT ;TCST CONTENTS TO ASTAT. 

MOV 8TCHC,TCSCS ;SAVE TChC 

MOV BTCBA/TCBAS JSIVE TCEA. 

STOPl: BIC |ll6,PTCCM ;S10P DECTAPE. 

RTS PC ;EXIT. 
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SEQ 0013 



m 
m 



016700 176322 
005400 

2701 COllOl 



012701 

mm 



C22701 C00400 

003420 



062702 
01 



C0C400 



526 
527 



005301 
001374 
005702 
100404 
C05767 176134 
100411 
000403 

C05767 176124 
100003 

020267 176116 
002402 

0002^5 
152767 

000205 



„„_*«*****ft*****ftCAREFULL' 

MAYBE: NEG RO 



2$: 

176116 3$: 
4S: 

OOCOOl 176215 5$: 



MOV 

CLR 

ADD 

CMP 

BLE 

ADD 

DEC 

BNE 

TST 

BMI 

TST 

BMI 

BR 

TST 

BPL 

CMP 

BLT 

TST 

RTS 

BISB 

RTS 



*******CAfiEFULL' 
|577.,P1 

R0,R1 
|256.,F1 

256, /Ii2 




; SAVE CIRREST BLOCK M 

;TfiIS INST IS CHANGED PY SUBFCtTINE GCEK TC EITHER BE 

NEGATE RO OR A hCP, DEPENCIKG Oh 
ilhl DIRECTICN THE TAPE IS MCVINC 

? LOAD MjSX. NUMBER CF BLOCKS 

; ZERO REG. 2 

; GET # CF BLOCKS LEFT ON TRPE 

? J-CRE THAN 256 PLCCK LEFT ? 

? YES 

; GET TOTAL * CF WCFCS LEFT 

; ALL BLOCKS ADDED IN ? 

; NC/ KEEP ACBING 

} IS NUMBER CF WCRDS LEFT OK TAFF KEG. ? 

; YES 

; IS TRANSFER SIZE NEG. ? 

; YES 

; hC, GO CONIIKUE 

; IS TRANSFER SIZE PCS. ? 

; YES 

; b«S THERE ENCUGH RCOM ? 

; hC, RETURN CK 

; \IS, MUST EE A REAL ERROR 

; RETURN AS REAL ERBCR 

; SET OVERFLCfe FLAG 

; RETURN OK 



; SUBR 
Noy: 



TO TYPE PRESENT DRIVER AND BLOCKS 



104421 COCOOO- 000324- 

002360' 



002052- 116767 C00306 000247 



002060- 
002066- 

002070' 

mm- 

002112' 



104421 COOOOO' 000270' 
002360- 

116767 000266 000234 

imi^ mm ^mii 

000207 



;CCNVERT RISV TO ASCII AND 
;S1CRE AT DNOM 

BTOD$ /BEGIN/ RISV /DNUM 

MOVB DNUM*4/MSG6*3 ?PIT IN MSG 

' JCCNVEPT BLOCK TC ASCII IND 

;S1CRE AT DNIM 

BTODS/BEG IK, BLCCK/ DNUM 

MOVB DNUM42/MSG6+6 JFUT IN FIRSl DIGIT CF MSG 
MOVB DNUM+3/MSG6+7. ;;RD 
MOVB DNUM44,MSG6+8. ;3RD 
RTS PC ;FETURN 



) 
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177770 

176166 

002366' 176144 
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C46102 
C47516 
047125 
051040 
C46040 
000 
020040 

mn 

041040 
046440 
000104 
C20124 
C0C040 
051440 
044524 



041517 
020124 
000104 
052105 
046511 

051104 
051104 
000104 
047514 
051511 



046105 
047117 
000 



002 



004 
040 



ROUTINE TO SEQUENTIALLY SELFCT 

~ — 8.,R2 
1SV,P1 



SEQDRVS MOV 
fOV 



2$! 



HSGl: 
MSG2: 

MSG3: 

MSG4: 

NSG6S 
MSG7: 



dnum: 
untab: 



INC 
BIC 
MOV 
BITB 
BNE 
DEC 
BNE 



Rl 

#177770, Rl 
RURISV 

unt ab(1),0selct 
rI 

ends/begin 
hovb r1,unit+1 

RtS PC 

NSGl 
MSG6 
177777 

«sg| 

1??777 
MSG3 

1???77 
NSG4 
MSG6 
177777 
MSG7 
MSG6 
177777 
.ASCIZ 



A CRIVE FOR TESTING. 
;KILL check £ llfES. 



;CLEAR JUNK BITS, 

;DRIVE AVAILABLE? 

;Efi IF YES. 

JCKECKED 8 TINES? 

;BF if NOT. 

;NC DRIVE AVAILABLE 

;SEIECTEC DRIVE H TC UNIT+l. 

;E]<I1. 



.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 
.ASCIZ 



BLOCK NOT FCUNC 

RETRY IIPW 

DRIVE DRCPPED' 

BLOCK MISSED' 

DT B 

SELECTION ERR* 



rlLli! 3. ;EESERVE 6 BYTES FCF BTDD 

.BYTE BIT0,BIT1,BIT2,BIT3,BIT4,BIT5,BIT6/EIT7 



.BLKfeJ 
.END 
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00QI02R 
000Q06R 
001000 
000106R 

001344R 

mil 



m 



491* 
260 
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468 
404 



SEG 0C15 



358* 

m 

325 



361 
318 
482 
526 



321 
536 
598 



369 
543 



402 
560 



m m 



276* 
463 



334 
598 



104412 
600144R 



000146R 

nn'4i 

00g056R 
001176R 
OOOIOOR 

nm 

ogiooQ 

000254R 
002360R 

mm 

001472R 
001122R 
001234R 
000014R 
000312R 



536 
318 



349* 
361# 



543 
392 



332 
536 



485 
452# 



455 

360* 



334* 
539 



363* 
399 



339* 
543 



435 
433 



367 
546 



432 
547 



438 
546 



597# 
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OTOAS = 
PASCBT 
PIRQS = 
POPS? = 
P0PSP2= 
PRTY = 
PRTYC = 
PRTYl = 



104420 
0OQQ34R 
000004 
005726 

mul 

000000 
000040 



321 

560 

406* 

369 

275* 








465* 
323 


470* 
325* 


472* 
526* 


289 
303 
298 


307 


332» 




475 


482 







259* 



579# 
5821 
585| 
5881 
546* 

III* 

408 
163 



221# 



503» 



547* 

532# 

475 

164 

2!l# 
242 



548* 


565 


568 


m 


166 


183 


197 


199 


20C 


228 


229 


23C 


243 


244 


245 



571 
184 

hi 

246 



185 

in 

247 



186 
2C5 

248 



591« 



187 
207 
23£ 
249 



189 
210 
236 
251 



19C 
211 
23S 

252 



TCAG DEC/Xll SYStEM EXERCISER MODULE 
XTCAGO-Pll 12-0CT-7P 12:21 



SRI 
SR2 



000066R 
000070R 
000072R 
000074R 



m 
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SEC CC17 



601# 

360 

318 

290 

289 

357# 

278 



384 

364* 

341* 

410 
536 
430» 

297# 

477 
551# 

408 



310* 
416 



456 
495# 



393 

398* 

460 

485 
552 



324 
320# 



396 
500# 



340* 
491# 
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aCNT 



wDtg 

WRIfE 
XFLAG 
XFR 
XFRA 
XFRIWT 
XI 




4431 
596# 



361* 


494 












375 
381* 
492 
359* 


384 
382 

493 


387* 
39C* 




443 491 


367* 


368 


387 


396* 


397* 419 


435* 561* 


422* 


556 








517 

300* 
291* 


359 


522 









597# 



601« 



000000 
003376 



000 
001 



errors detecteds 

default globals generatfd: 

xtcagc,xtcago/sol/crf:syh=ddxcoh,xtcago 

run-time: 1 1 .3 SECONDS 
RUN-TIHE ratio: 15/3=4.1 
CORE USED: 7K (13 PAGES) 



